Caption = "To your friends, neighbors and loved ones."
Font3D = 0 'None
ForeColor = &H00FFFFFF&
Height = 495
Left = 2925
TabIndex = 3
Top = 3000
Width = 3975
End
Begin SSPanel Panel3D3
BackColor = &H0080FFFF&
BevelOuter = 1 'Inset
BorderWidth = 1
Caption = "FREE TELEGRAMS!"
Font3D = 0 'None
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 720
Left = 3690
TabIndex = 2
Top = 1950
Width = 2235
End
Begin SSPanel Panel3D2
BackColor = &H000000FF&
BorderWidth = 1
Caption = "You can easily use this program to send"
Font3D = 0 'None
ForeColor = &H00FFFFFF&
Height = 345
Left = 2640
TabIndex = 1
Top = 1065
Width = 4425
End
Begin SSPanel Panel3D1
BackColor = &H000000FF&
BorderWidth = 1
Caption = "Welcome to the Amateur Radio Telegram Generation Program."
Font3D = 0 'None
ForeColor = &H00FFFFFF&
Height = 495
Left = 1860
TabIndex = 0
Top = 210
Width = 6210
End
Begin Line Line2
BorderColor = &H00000000&
BorderWidth = 5
X1 = 16.086
X2 = 16.086
Y1 = 12.25
Y2 = 0
End
Begin Line Line1
BorderColor = &H00000000&
BorderWidth = 5
X1 = 0.556
X2 = 0.556
Y1 = 0
Y2 = 12.144
End
End
Sub Command3D1_Click ()
ky1tnts.Hide
info.Show
End Sub
Sub Command3D2_Click ()
voice = 2 'Radiogram form is for telegrams, not voicegrams
ky1tnts.Hide
radiogrm.Show
End Sub
Sub Command3D3_Click ()
q$ = InputBox$("Password, please?" + Chr$(13) + Chr$(10) + "Note that this software is NOT free. It is in fact licensed to Peter V. who has paid the very small registration fee. If you are NOT Peter V, then you have in fact stolen this software and are not eligible to use it. ")
If q$ = "kc1qf" Or q$ = "KC1QF" Then
ky1tnts.Hide
sysop.Show
Else MsgBox (" PASSWORD FAILURE!! To register this software, contact Fort Valley Electronics, 53 Broadview St. Newington CT 06111. Telephone: 203 666 4399")
End If
End Sub
Sub Command3D4_Click ()
q$ = InputBox$("Password, please?" + Chr$(13) + Chr$(10) + "Note that this software is NOT free. It is in fact licensed to Peter V. who has paid the very small registration fee. If you are NOT Peter V, then you have in fact stolen this software and are not eligible to use it.")
If q$ = "kc1qf" Or q$ = "KC1QF" Then
End
Else MsgBox (" PASSWORD FAILURE!! To register this software, contact Fort Valley Electronics, 53 Broadview St. Newington CT 06111. Telephone: 203 666 4399")
End If
End Sub
Sub Command3D5_Click ()
voice = 1 'Radiogram form is for voicegrams, not telegrams
ky1tnts.Hide
radiogrm.Show
End Sub
Sub drawframeon (topleftcontrol As Control, lowestrightcontrol As Control, style As String, framewidth)
'remember the drawwidth, fillstyle, and scalemode so we can restore them at the end